#!/usr/bin/perl -w

# h2t
# File ID: d9427848-5d3a-11df-82ef-90e6ba3022ac

use strict;

while (<>) {
	s/&lt;/</g;
	s/&gt;/>/g;
	s/&amp;/&/g;
	print;
}
